procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color:=clBlue;
  Cursor:=crHandPoint;
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color:=clBlack;
  Cursor:=crDefault;
end;


procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(
    Application.Handle,
    'open',
    'http://www.delphitricks.com',
    nil,
    nil,
    0);
end;